﻿Imports Clases
Public Class frmInicial
    ''' <summary>
    ''' Abre el formulario para el registro de un cliente
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub btnRegistro_Click(sender As System.Object, e As System.EventArgs) Handles btnRegistro.Click
        frmRegistro.Show()
    End Sub

    ''' <summary>
    ''' Iniciar la aplicación como usuario
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub btnLogin_Click(sender As System.Object, e As System.EventArgs) Handles btnLogin.Click
        Dim men As String = ""
        If txtUsuario.Text = "" OrElse txtUsuario.Text.Length < 2 Then men &= "Introduzca un nombre de usuario valido" & ControlChars.NewLine
        If txtContraseña.Text = "" OrElse txtContraseña.Text.Length < 8 Then men &= "Escribe una contraseña valida"
        If men <> "" Then
            MessageBox.Show(men, "Atención")
            Exit Sub
        End If
        Dim usuario As New Persona(txtUsuario.Text, txtContraseña.Text)

        If Not misClientes.Personas.Contains(usuario) Then men = "El usuario no exite. Revise el nombre de usuario y la contraseña"
        If men <> "" Then
            MessageBox.Show(men, "Atención")
            Exit Sub
        End If

        usuarioActivo = misClientes.Personas(misClientes.Personas.IndexOf(usuario))

        frmMenus.Show()

    End Sub

    Private Sub frmInicial_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class
